home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
038a
/
dframe26.zip
/
EXINPUT.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-01-26
|
618b
|
25 lines
'Program to demonstrate using IN.PUT as an INKEY$ function
' $INCLUDE: '\INC\DFRAME.INC'
PROGNAME$ = "Input Example"
VERSION$ = " v1.0"
EXENAME$ = "EXINPUT"
INITIALIZE
CLOSE #1
' We'll assume there is some code above this, so now we want an answer.
DIS.PLAY "Your answer? > ", LGREEN, BLACK, 0, 0, 10, 3, 0, 0, 0
' Get a 5 character maximum response, blue on white, and allow 60 seconds
' to answer.
IN.PUT 5, 60, LBLUE, WHITE
' Now we'll DIS.PLAY the answer. This will be "-1" if a timeout occurred.
DIS.PLAY RESPONSE$, LRED, BLACK, 0, 0, 15, 10, 1, 0, 0
ENTER
CLRSCRN
EXIT.DOOR "Y"
END